#!/usr/bin/perl

package WA::Model2;

use strict;
use DBValue2;
our @ISA=qw( DBValue2 );

sub charset {
	'utf8'
}

sub db_params {
	('dbi:mysql:DB_NAME', 'DB_USER', 'DB_PASS')
}

sub after_connect {
	my $self=shift;
	my $charset=$self->charset;
	do {
		$self->query("set character_set_client='$charset'");
		$self->query("set character_set_results='$charset'");
		$self->query("set collation_connection='${charset}_general_ci'");
	} if $charset;
}

1;
